unit uClasseOrdemServico;

interface

uses
  uClasseBase;

type
  TOrdemServico = class(TConsultaBase)
  const
    Tabela = 'Ordem_Servico';
    PrimaryKey = 'nr_sequencia';
  private
    Fnr_sequencia: integer;
    Fnr_seq_status_os: integer;
    Fdt_ordem: TDateTime;
    procedure SetNr_sequencia(const Value: integer);
    procedure SetDt_ordem(const Value: TDateTime);
    procedure SetNr_seq_status_os(const Value: integer);

  public
    class function GetTabela:string;override;
    class function GetPrimaryKey:string;override;
    constructor Create;overload;
  published
    property nr_sequencia:integer read Fnr_sequencia write SetNr_sequencia;
    property nr_seq_status_os:integer read Fnr_seq_status_os write SetNr_seq_status_os;
    property dt_ordem:TDateTime read Fdt_ordem write SetDt_ordem;
  end;

implementation

uses
  uUtils,
  ADODB;

{ TCaixa }

constructor TOrdemServico.Create;
begin
  FADOConn := TConexao.Interna;
  inherited;
end;

class function TOrdemServico.GetPrimaryKey: string;
begin
  result := PrimaryKey;
end;

class function TOrdemServico.GetTabela: string;
begin
  result := Tabela;
end;

procedure TOrdemServico.SetDt_ordem(const Value: TDateTime);
begin
  Fdt_ordem := Value;
end;

procedure TOrdemServico.SetNr_sequencia(const Value: integer);
begin
  Fnr_sequencia := Value;
end;

procedure TOrdemServico.SetNr_seq_status_os(const Value: integer);
begin
  Fnr_seq_status_os := Value;
end;

end.
